perm filename S3.SCR[P11,LCS] blob
sn#339415 filedate 1978-03-05 generic text, type T, neo UTF8
C←4000;
SEG(F1);1 1 -1 100;
SEG(F3);1 1 .4 10 .2 20 .05 50 0 100;
< S3 .SCR -- RANDOM NUMBER= 329
PLAY;
CLARA 0.00 0.50 60.00 50.00 F2 0.00 F4 1.00
;PRINT P1;< CLARA 1
TOOTA 0.00 0.69 E*4 303.50 F3 F4 3.00
;PRINT P1;< TOOTA 1
TOOTB 0.23 4.65 GS*4 579.75 F2 F5
;PRINT P1;< TOOTA 2
CLARA 0.50 0.57 64.79 82.14 F2 0.00 F4 1.14
;PRINT P1;< CLARA 2
CLARB 1.00 0.64 69.95 114.29 F2 0.00 F4 1.29
;PRINT P1;< CLARA 3
CLARA 1.50 0.71 75.54 146.43 F2 0.00 F4 1.43
;PRINT P1;< CLARA 4
TOOTA 1.78 5.70 G*4 444.73 F2 F1 3.00
;PRINT P1;< TOOTA 3
CLARB 2.00 0.79 81.56 178.57 F2 0.00 F4 1.57
;PRINT P1;< CLARA 5
CLARA 2.50 0.86 88.07 210.71 F2 0.00 F4 1.71
;PRINT P1;< CLARA 6
CLARB 3.00 0.93 95.09 242.86 F2 0.00 F4 1.86
;PRINT P1;< CLARA 7
CLARA 3.50 1.00 102.68 275.00 F2 0.00 F4 2.00
;PRINT P1;< CLARA 8
TOOTC 3.68 5.28 A 322.33 F2 F5 3.00
;PRINT P1;< TOOTA 4
CLARB 4.00 1.07 110.87 307.14 F2 0.00 F4 2.14
;PRINT P1;< CLARA 9
CLARA 4.50 1.14 119.72 339.29 F2 0.00 F4 2.29
;PRINT P1;< CLARA 10
CLARC 5.00 1.21 129.27 371.43 F2 0.00 F4 2.43
;PRINT P1;< CLARA 11
TOOTB 5.44 0.10 F/4 507.69 F2 F1 1.00
;PRINT P1;< TOOTA 5
CLARB 5.50 1.29 139.58 403.57 F2 0.00 F4 2.57
;PRINT P1;< CLARA 12
TOOTB 5.54 0.10 GS/2 216.12 F3 F5 1.00
;PRINT P1;< TOOTA 6
TOOTB 5.64 0.10 AS/4 282.53 F2 F5
;PRINT P1;< TOOTA 7
TOOTB 5.74 0.10 E/2 269.49 F2 F4
;PRINT P1;< TOOTA 8
TOOTB 5.84 0.10 F/2 468.36 F3 F4
;PRINT P1;< TOOTA 9
TOOTB 5.94 0.10 GS/2 561.07 F2 F5
;PRINT P1;< TOOTA 10
CLARA 6.00 1.36 150.71 435.71 F2 0.00 F4 2.71
;PRINT P1;< CLARA 13
TOOTB 6.04 0.10 B/2 530.94 F3 F4 1.00
;PRINT P1;< TOOTA 11
TOOTB 6.14 0.10 CS/4 395.84 F2 F5
;PRINT P1;< TOOTA 12
TOOTB 6.24 0.10 C/2 494.11 F2 F5
;PRINT P1;< TOOTA 13
TOOTB 6.34 0.10 GS/2 398.15 F2 F5
;PRINT P1;< TOOTA 14
TOOTB 6.44 0.10 G/4 572.58 F3 F4
;PRINT P1;< TOOTA 15
CLARC 6.50 1.43 162.74 467.86 F2 0.00 F4 2.86
;PRINT P1;< CLARA 14
TOOTB 6.54 0.10 E/2 308.34 F2 F4 1.00
;PRINT P1;< TOOTA 16
TOOTB 6.64 0.10 A/4 377.54 F3 F1
;PRINT P1;< TOOTA 17
TOOTB 6.74 0.10 G/4 387.29 F3 F4
;PRINT P1;< TOOTA 18
TOOTB 6.84 0.10 FS/2 493.75 F3 F4
;PRINT P1;< TOOTA 19
TOOTB 6.94 0.10 CS/4 400.21 F2 F5
;PRINT P1;< TOOTA 20
CLARB 7.00 1.50 175.72 500.00 F2 0.00 F4 3.00
;PRINT P1;< CLARA 15
TOOTB 7.04 0.10 D/2 109.95 F2 F4 1.00
;PRINT P1;< TOOTA 21
TOOTB 7.14 0.10 AS/4 478.98 F2 F5
;PRINT P1;< TOOTA 22
TOOTB 7.24 0.10 GS/2 411.66 F2 F1
;PRINT P1;< TOOTA 23
TOOTB 7.34 0.10 C/2 330.98 F2 F5
;PRINT P1;< TOOTA 24
TOOTB 7.44 0.10 E/4 446.06 F2 F5
;PRINT P1;< TOOTA 25
CLARA 7.50 1.44 189.74 470.62 F2 0.00 F4 2.88
;PRINT P1;< CLARA 16
TOOTA 7.54 0.10 C 598.08 F2 F1 1.00
;PRINT P1;< TOOTA 26
TOOTA 7.64 0.10 D/4 219.45 F2 F4
;PRINT P1;< TOOTA 27
TOOTA 7.74 0.10 E/2 252.07 F3 F1
;PRINT P1;< TOOTA 28
TOOTA 7.84 0.10 C/2 217.85 F3 F1
;PRINT P1;< TOOTA 29
TOOTA 7.94 0.10 A/4 569.22 F2 F4
;PRINT P1;< TOOTA 30
CLARC 8.00 1.37 204.87 441.25 F2 0.00 F4 2.75
;PRINT P1;< CLARA 17
TOOTA 8.04 0.10 A/4 428.03 F3 F4 1.00
;PRINT P1;< TOOTA 31
TOOTA 8.14 0.10 DS/4 535.38 F3 F4
;PRINT P1;< TOOTA 32
TOOTA 8.24 0.10 C/2 108.77 F3 F4
;PRINT P1;< TOOTA 33
TOOTA 8.34 0.10 E/2 322.55 F2 F5
;PRINT P1;< TOOTA 34
TOOTA 8.44 0.10 CS/2 597.11 F2 F4
;PRINT P1;< TOOTA 35
CLARB 8.50 1.31 221.22 411.87 F2 0.00 F4 2.62
;PRINT P1;< CLARA 18
TOOTA 8.54 0.10 G/4 325.48 F3 F1 1.00
;PRINT P1;< TOOTA 36
TOOTA 8.64 0.10 FS/2 161.51 F3 F4
;PRINT P1;< TOOTA 37
TOOTA 8.74 0.10 GS/2 481.75 F3 F4
;PRINT P1;< TOOTA 38
TOOTA 8.84 0.10 F/2 409.99 F3 F1
;PRINT P1;< TOOTA 39
TOOTA 8.94 0.10 A/2 298.07 F3 F4
;PRINT P1;< TOOTA 40
CLARA 9.00 1.25 238.86 382.50 F2 0.00 F4 2.50
;PRINT P1;< CLARA 19
TOOTA 9.04 3.78 E*4 558.01 F2 F1 3.00
;PRINT P1;< TOOTA 41
CLARC 9.50 1.19 257.92 353.12 F2 0.00 F4 2.38
;PRINT P1;< CLARA 20
CLARB 10.00 1.12 278.50 323.75 F2 0.00 F4 2.25
;PRINT P1;< CLARA 21
TOOTB 10.30 4.83 E*2 428.26 F2 F5 3.00
;PRINT P1;< TOOTA 42
CLARA 10.50 1.06 300.71 294.37 F2 0.00 F4 2.13
;PRINT P1;< CLARA 22
CLARC 11.00 1.00 324.70 265.00 F2 0.00 F4 2.00
;PRINT P1;< CLARA 23
CLARB 11.50 0.94 350.60 235.63 F2 0.00 F4 1.88
;PRINT P1;< CLARA 24
TOOTC 11.91 4.83 FS*4 570.05 F2 F1 3.00
;PRINT P1;< TOOTA 43
CLARA 12.00 0.88 378.57 206.25 F2 0.00 F4 1.75
;PRINT P1;< CLARA 25
CLARB 12.50 0.81 408.78 176.88 F2 0.00 F4 1.62
;PRINT P1;< CLARA 26
CLARA 13.00 0.75 441.39 147.50 F2 0.00 F4 1.50
;PRINT P1;< CLARA 27
CLARB 13.50 0.69 476.60 118.13 F2 0.00 F4 1.37
;PRINT P1;< CLARA 28
TOOTA 13.52 4.74 DS*2 363.93 F3 F4 3.00
;PRINT P1;< TOOTA 44
CLARA 14.00 0.63 514.62 88.75 F2 0.00 F4 1.25
;PRINT P1;< CLARA 29
CLARB 14.50 0.56 555.67 59.38 F2 0.00 F4 1.12
;PRINT P1;< CLARA 30
FINISH; < S3 .SCR